home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0696A.ZIP / SETMYDIR.C < prev    next >
Text File  |  1987-05-25  |  910b  |  45 lines
  1. /* try to change dos environment */
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <spstd.h>
  5.  
  6. main(argc, argv)
  7. int argc;
  8. char **argv;
  9. {
  10.     register char **p;
  11.     static char var[] = { "MYDIR" };
  12.     static char pgm[MAXNAME + 1]= { "setmydir" };
  13.     extern  void getpname(char *, char *);
  14.         extern void err_exit(char *, char *,int);
  15.     
  16. /* use an alias if one given to this program  */
  17.     if (_osmajor >= 3)
  18.         getpname(*argv, pgm);
  19. /* try to add MYDIR variable to environment */
  20. if (putenv("MYDIR=c:\\mydir") == -1)
  21.     err_exit(pgm, "ERROR CHANGING ENVIRONMENT", 1);
  22. /* display the environment for this process */
  23. for (p = environ; *p; p++) {
  24.     printf("%s\n", *p);
  25. }
  26. exit(0);
  27. }
  28.  
  29.  
  30.  
  31. void err_exit(pname, str, errlvl)
  32. char *pname;
  33. char *str;
  34. int errlvl;
  35.  
  36. { 
  37.     fputs(pname, stderr);
  38.     fputc(':',stderr);
  39.     fputc(' ',stderr);
  40. /* for fatal add perror(str); */
  41.     exit(errlvl);
  42. }
  43.        
  44.  
  45.